home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / NUMBER.P < prev    next >
Text File  |  1990-09-13  |  3KB  |  130 lines
  1. temp <- <primitive 110 30 >
  2. <primitive 112 temp 1        " truncateTo: " \
  3.     #( #[ 32 33 190 10 47 33 194 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " to:by: " \
  7.     #( #[ 5 46 160 241 32 33 34 131 0 242 243 245] \
  8.     #( #from:to:by:  ) ) >
  9.  
  10. <primitive 112 temp 3        " to: " \
  11.     #( #[ 5 46 160 241 32 33 81 131 0 242 243 245] \
  12.     #( #from:to:by:  ) ) >
  13.  
  14. <primitive 112 temp 4        " strictlyPositive " \
  15.     #( #[ 32 80 204 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " squared " \
  19.     #( #[ 32 32 194 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " sqrt " \
  23.     #( #[ 32 175 10 43 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " sign " \
  27.     #( #[ 32 80 199 247 3 90 248 11 242 32 80 204 247 3 81 \
  28.  248 2 242 80 243 245] \
  29.     #(  ) ) >
  30.  
  31. <primitive 112 temp 8        " roundTo: " \
  32.     #( #[ 32 33 190 10 41 33 194 243 245] \
  33.     #(  ) ) >
  34.  
  35. <primitive 112 temp 9        " reciprocal " \
  36.     #( #[ 48 32 190 243 245] \
  37.     #( 1.00  ) ) >
  38.  
  39. <primitive 112 temp 10        " raisedTo: " \
  40.     #( #[ 32 175 33 175 11 16 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 11        " radians " \
  44.     #( #[ 5 54 32 175 176 243 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 112 temp 12        " positive " \
  48.     #( #[ 32 80 203 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 13        " pi " \
  52.     #( #[ 32 48 194 243 245] \
  53.     #( 3.1415926  ) ) >
  54.  
  55. <primitive 112 temp 14        " negative " \
  56.     #( #[ 32 80 199 243 245] \
  57.     #(  ) ) >
  58.  
  59. <primitive 112 temp 15        " negated " \
  60.     #( #[ 80 32 193 243 245] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 16        " log: " \
  64.     #( #[ 32 10 32 33 10 32 190 243 245] \
  65.     #(  ) ) >
  66.  
  67. <primitive 112 temp 17        " ln " \
  68.     #( #[ 32 175 10 32 243 245] \
  69.     #(  ) ) >
  70.  
  71. <primitive 112 temp 18        " gamma " \
  72.     #( #[ 32 175 10 26 243 245] \
  73.     #(  ) ) >
  74.  
  75. <primitive 112 temp 19        " exp " \
  76.     #( #[ 32 175 10 23 243 245] \
  77.     #(  ) ) >
  78.  
  79. <primitive 112 temp 20        " abs " \
  80.     #( #[ 32 80 199 247 5 80 32 193 248 2 242 32 243 245] \
  81.     #(  ) ) >
  82.  
  83. <primitive 112 temp 21        " @ " \
  84.     #( #[ 5 53 160 32 11 50 33 11 51 243 245] \
  85.     #(  ) ) >
  86.  
  87. <primitive 112 temp 22        " ^ " \
  88.     #( #[ 32 175 33 175 11 16 243 245] \
  89.     #(  ) ) >
  90.  
  91. <primitive 112 temp 23        " / " \
  92.     #( #[ 32 33 11 34 33 32 11 34 190 243 245] \
  93.     #(  ) ) >
  94.  
  95. <primitive 112 temp 24        " * " \
  96.     #( #[ 32 33 11 34 33 32 11 34 194 243 245] \
  97.     #(  ) ) >
  98.  
  99. <primitive 112 temp 25        " - " \
  100.     #( #[ 32 33 11 34 33 32 11 34 193 243 245] \
  101.     #(  ) ) >
  102.  
  103. <primitive 112 temp 26        " + " \
  104.     #( #[ 32 33 11 34 33 32 11 34 192 243 245] \
  105.     #(  ) ) >
  106.  
  107. <primitive 112 temp 27        " > " \
  108.     #( #[ 32 33 11 34 33 32 11 34 204 243 245] \
  109.     #(  ) ) >
  110.  
  111. <primitive 112 temp 28        " < " \
  112.     #( #[ 32 33 11 34 33 32 11 34 199 243 245] \
  113.     #(  ) ) >
  114.  
  115. <primitive 112 temp 29        " = " \
  116.     #( #[ 32 33 11 34 33 32 11 34 201 243 245] \
  117.     #(  ) ) >
  118.  
  119. <primitive 112 temp 30        " maxtype: " \
  120.     #( #[ 32 33 250 2 9 247 3 32 248 4 242 33 32 191 243 \
  121.  245] \
  122.     #(  ) ) >
  123.  
  124. <primitive 98 #Number \
  125.     <primitive 97 #Number #Magnitude #\smalltlk\prelude\number.st \
  126.     #(  ) \
  127.     #( #truncateTo: #to:by: #to: #strictlyPositive #squared #sqrt #sign #roundTo: #reciprocal #raisedTo: #radians #positive #pi #negative #negated #log: #ln #gamma #exp #abs #@ #^ #/ #* #- #+ #> #< #= #maxtype:  ) \
  128.     temp 3 6 > >
  129.  
  130.